home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0620.arc / SUB30620.MRG < prev   
Encoding:
Text File  |  1988-06-20  |  1.8 KB  |  41 lines
  1. * Fix to RBBSSUB3.BAS 16.1A with 0424 fixes applied.
  2. * Displays only the first character of an invalid line rather than
  3. *   the entire line.
  4. 64113 IF LEFT$(A$(SCRIPT.INDEX),1) = "?" THEN _         ' QUESTION
  5.          A$ = MID$(A$(SCRIPT.INDEX),2) : _
  6.          SUBROUTINE.PARAMETER = 1 : _
  7.          CALL TGET : _
  8.          IF SUBROUTINE.PARAMETER = -1 THEN _
  9.             GOTO 64510 _
  10.          ELSE IF Q = 0 THEN _
  11.                  GOTO 64113 _
  12.               ELSE A$(SCRIPT.INDEX + 1) = "!" + _
  13.                                           B$ : _
  14.                    GOTO 64110
  15.       IF LEFT$(A$(SCRIPT.INDEX),2) = "=#" THEN _                     ' NUMERIC
  16.          GOSUB 64350 : _
  17.          GOTO 64110
  18.       IF LEFT$(A$(SCRIPT.INDEX),1) = "=" THEN _         ' DECISION
  19.          GOSUB 64300 : _
  20.          IF SUBROUTINE.PARAMETER = -1 THEN _
  21.             GOTO 64510 _
  22.          ELSE GOTO 64110
  23.       IF LEFT$(A$(SCRIPT.INDEX),1) = "-" THEN _         ' LOWER
  24.          ADJUSTED.SECURITY = -1 : _
  25.          USER.SECURITY.LEVEL = USER.SECURITY.LEVEL - _
  26.                                VAL(MID$(A$(SCRIPT.INDEX),2,5)) : _
  27.          GOTO 64110
  28.       IF LEFT$(A$(SCRIPT.INDEX),1) = "+" THEN _         ' RAISE
  29.          IF USER.SECURITY.LEVEL + VAL(MID$(A$(SCRIPT.INDEX),2,5)) _
  30.             <= MAXIMUM.SECURITY.LEVEL THEN _
  31.                ADJUSTED.SECURITY = -1 : _
  32.                USER.SECURITY.LEVEL = USER.SECURITY.LEVEL + _
  33.                                VAL(MID$(A$(SCRIPT.INDEX),2,5))
  34.       IF LEFT$(A$(SCRIPT.INDEX),1) = "+" THEN _
  35.          GOTO 64110
  36.       A$ = "Invalid line.  Column 1 is <" + LEFT$(A$(SCRIPT.INDEX),1)+">.  Must be: * ? = + - > @" ' TF062001
  37.       SUBROUTINE.PARAMETER = 5
  38.       CALL TPUT
  39.       IF SUBROUTINE.PARAMETER = -1 THEN _
  40.          GOTO 64510
  41.